100 HOME : HGR : HCOLOR= 3: FOR I = 0 TO 7: HPLOT I,I TO 279 -I,I TO 279 -I,159 -I TO I,159 -I TO I,I: NEXT : FOR TX = 0 TO 11: FOR TY = 0 TO 11: DRAW 1 AT 8 +22 *TX,8 +12 *TY:B(TX,TY) = 1: NEXT : NEXT
110 FOR TX = 4 TO 7: FOR TY = 4 TO 7: DRAW 5 AT 8 +22 *TX,8 +12 *TY:B(TX,TY) = 5: NEXT : NEXT : FOR J = 1 TO DB +1: FOR I = 1 TO 4
120 TX = INT( RND(1) *12):TY = INT( RND(1) *12): IF B(TX,TY) >1 OR (TX = DX AND TY = DY) THEN 120
130 DRAW 5 AT 8 +22 *TX,8 +12 *TY:B(TX,TY) = 5: NEXT : NEXT : FOR K = 1 TO 10 +DB
140 TX = INT( RND(1) *12):TY = INT( RND(1) *12): IF B(TX,TY) >1 THEN 140
150 GOSUB 200: DRAW 6 AT 8 +22 *TX,8 +12 *TY:B(TX,TY) = 6: NEXT
200 HCOLOR= 0: FOR I = 8 +12 *TY TO 19 +12 *TY: HPLOT 8 +22 *TX,I TO 29 +22 *TX,I: NEXT : HCOLOR= 3: RETURN
210 HCOLOR= 0: FOR Y = 152 TO 159: HPLOT 8 +22 *OX,Y TO 29 +22 *OX,Y: NEXT : HCOLOR= 3:F = 1: PRINT CHR$(7);: RETURN
220 IF HOLD THEN HOLD = 0: RETURN
230 M = PEEK( -16384): IF M <128 THEN 230
240 POKE -16368,0:M = M -128:TX = DX +(M = 21) -(M = 8):TY = DY +(M = 90) -(M = 65): IF TX <0 OR TX >11 OR TY <0 OR (TY = 12 AND (TX < >OX OR S <10)) THEN 230
250 E = B(TX,TY) = 5:S = S +(B(TX,TY) = 6): IF B(TX,TY) < >0 THEN TI = TI +1:HOLD = 1: FOR I = 1 TO 10:B = PEEK( -16336): NEXT
260 TI = TI +1: XDRAW 2 AT 8 +22 *DX,8 +12 *DY:B(DX,DY) = 0:DX = TX:DY = TY: GOSUB 200: DRAW 2 AT 8 +22 *DX,8 +12 *DY:B(DX,DY) = 2: IF DY = 12 THEN E = 2
270 IF E = 1 THEN HOME : VTAB 21: PRINT "TOO BAD, DIGGER, YOU JUST GOBBLED SOME DIGGERBANE. CHOKE! GASP! YOU'RE DEAD!": GOTO 80